home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / grafica / ghostscript / fonts / hrpltbi.gsf < prev    next >
Text File  |  1994-08-25  |  840b  |  26 lines
  1. %!
  2. systemdict begin
  3. /deriveHersheyFontGS993 where { pop save {restore} } { {} } ifelse
  4. /deriveHersheyFontGS993    % <newfontname> <uid> <xuid> <paintwidth>
  5.             %   <italicangle> <oldfontname>
  6. {    findfont dup length 1 add dict begin
  7.         {1 index /FID ne {def} {pop pop} ifelse} forall
  8.         FontInfo dup length dict copy begin
  9.             /ItalicAngle exch def
  10.         /FontInfo currentdict end def
  11.         Private dup length dict copy begin
  12.             /UniqueID 3 index def
  13.         /Private currentdict end readonly def
  14.         /FontMatrix [.001 0 FontInfo /ItalicAngle get neg sin 1000 div
  15.                  .001 0 0] def
  16.         /StrokeWidth exch 1000 28 div mul round cvi def
  17.         /XUID exch def
  18.         /UniqueID exch def
  19.         /FontName 1 index def
  20.     currentdict end definefont pop
  21. } def
  22. exec
  23. /Hershey-Plain-Triplex-Bold-Italic 5066552 [107 0 5066552]
  24.   2.0 0 /Hershey-Plain-Triplex-Italic deriveHersheyFontGS993
  25. end
  26.